home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
bbs
/
pad321.zip
/
FILE.MH
< prev
next >
Wrap
Text File
|
1996-07-17
|
2KB
|
67 lines
#ifndef __FILE_MH
#define __FILE_MH
#ifndef __STRING_MH
#include "string.mh"
#endif
#ifndef __SETTINGS_MH
#include "settings.mh"
#endif
#define commentChar ';'
//void otherLog (int: fd, string: message) {
// long: t;
// struct _stamp: ts;
//
// log (message);
// t := time ();
// long_to_stamp (t,ts);
// writeln (fd, substr (message, 1, 1) + stamp_string (ts) + "PAD " + substr (message, 2, strlen (message) - 1));
// }
void show_file (string: filename) {
char: nonstop;
if (filename = "") return;
nonstop := 0;
display_file (message_file_directory + "\\" + filename, nonstop);
}
void show (string: filename, string: message) {
if (filename = "") {
if (message <> "")
print (message);
}
else show_file (filename);
}
//void getToken (int: fd, Ref string: token, Ref string: params) {
// string: line;
// int: idx;
//
// do {
// readln (fd, line);
// stripRightOf (line, commentChar);
// line := strtrim (line, " \t");
// } while (strlen (line) = 0);
// idx := stridx (line,1,' ');
// if (idx) {
// token := substr (line,1,idx-1);
// params := strtrim (substr (line,idx,strlen (line) - idx + 1), " \t");
// }
// else {
// token := line;
// params := "";
// };
// token := strlower (token);
// stripChar (token,'_');
// if (strlen (params) > 0) {
// if ((params [1] = '"') and (params [strlen (params)] = '"')) {
// params := substr (params, 2, strlen (params) - 2);
// };
// };
// }
#endif